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ABSTRACT 

Changes  in  the  globally  integrated  absolute  angular  momentum  of  the  atmosphere 
were  computed  from  the  Fleet  Numerical  Oceanography  Center  NOGAPS  wind  analyses 
and  compared  to  astronomically  measured  changes  in  length  of  day  [LOD)  obtained 
from  the  U.S.  \aval  Observatory,  Washington  D.C.  The  two  time  series  were  subjected 
to  both  time  and  frequency  domain  analysis.  In  the  time  domain,  digital  filters  were  used 
to  isolate  seasonal  and  subseasonal  components.  In  the  frequency  domain,  energy  den- 
sity, coherence  and  phase  were  computed  over  periods  from  2  days  to  1000  days.  Over 
90°o  of  the  total  variance  in  astronomically  determined  LOD  can  be  explained  by 
meteorological  phenomena.  Fluctuations  in  LOD  are  coherent  and  in  phase  with  lluc- 
tuations  in  the  globally  integrated  angular  momentum  of  the  Earth's  shell  (crust,  mantle 
and  oceans;  liquid  core  is  excluded)  at  almost  all  periods  less  than  365  days.  Annual 
fluctuations  in  LOD  appear  to  originate  in  the  midlatitudes  and  propagate  equatorward. 
Subseasonal  fluctuations  (30  to  100  day  periods)  appear  to  be  a  tropical  phenomena. 
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I.     INTRODUCTION  AND  THEORY 

A.     BACKGROUND 

Fluctuations  in  the  Earth's  length  of  day  {LOD)  were  surmised  by  early  astronomers 
who  noted  cumulative  irregularities  in  the  Earth's  expected  latitudinal  position  relative 
to  daily  star  transits.  Newtonian  physics  explained  only  the  tidal  component  of  tliese 
short  period  changes  in  the  Earth's  angular  momentum.  In  the  late  1930's,  pendulum 
clocks  were  accurate  enough  to  measure  daily  star  transits  to  within  1  ms.i  Stoyko  (1937, 
cited  in  Munk  and  MacDonald,  1960)  reported  a  2  ms  cumulative  seasonal  variation  in 
LOD.  He  noted  that  the  length  of  day  measured  in  July  was  longer  than  that  measured 
in  May  by  2  ms.  Atomic  clocks,  developed  in  the  I950's,  improved  time  keeping  accu- 
racy by  several  orders  of  magnitude.  Present  day  cesium  clocks  have  accuracies  better 
than  I0~'  s  per  day  (or  .00001  ms)  (Ramsey,  1988).  At  the  same  time,  improvements  in 
astronomical  measurement  methods  led  to  more  precise  determination  of  star  and  quasar 
transits. 

A  number  of  studies  have  been  undertaken  to  link  the  observed  changes  in  LOD  to 
meteorological  phenomena.  Starr  (1948,  cited  in  Munk  and  MacDonald,  I960)  pro- 
posed that  the  observed  changes  in  the  Earth's  LOD  occurred  because  the  solid  Earth 
and  atmosphere  exchanged  angular  momentum  on  a  seasonal  basis.  Madden  and  Julian 
(1971)  found  40-50  day  oscillations  in  pressure  and  zonal  winds  centered  in  the  tropics, 
and  Lambeck  and  Cazenave  (1974)  subsequently  linked  these  atmospheric  oscillations 
to  changes  in  LOD.  Lambeck  (1980)  identified  the  amplitudes  and  phases  of  the  seasonal 
changes  and  listed  other,  non  meteorological  components  which  could  be  responsible  for 
LOD  changes.  Rosen  and  Salslein  (1983)  correlated  short  period  (less  than  seasonal) 
hemispherical  changes  of  atmospheric  angular  momentum  and  LOD  with  polar  and 
subtropical  jet  streams.  Eubanks  et  al.  (1985)  performed  a  spectral  analysis  of  atmo- 
spherically derived  angular  momentum  with  a  composite  of  astronomic,  satellite  and 
Lunar  Laser  Ranging  (LLR)2  LOD  data.     Barnes  et  al.  (1983)  extensively  studied 


1  The  best  gravity  pendulum  clocks  have  accuracies  within  1  ms  per  day  or  one  part  in  10' 
(Ramsey,  1988).  This  is  barely  accurate  enough  to  detect  the  fairly  large  seasonal  changes  in  the 
LOD. 

2  The  astronauts  left  a  comer  reflector  on  the  moon  which  reflects  a  LASER  signal  back  for 
extremely  accurate  short  term  measurement  of  Earth  rotation  parameters. 


changes  in  LOD  over  the  period  1979-1981.  Morgan  et  al.  (1985)  used  least  squares 
analysis  to  study  the  seasonal  as  well  as  suhseasonal  nature  of  oscillations  in  the  LOD 
from  1981  to  1984.  Svvinbank  (1985)  examined  the  torques  which  produce  changes  in 
LOD.  Wolf  and  Smith  (1987),  and  Eubanks  et  al.  (1986)  compared  changes  in  atmo- 
spheric angular  momentum  with  astronomically  determined  LOD  during  the  El  Nino  of 
1983. 

Most  studies  have  examined  atmospheric  angular  momentum  and  LOD  using  time 
measurements  from  the  Bureau  International  de  I'lleure  (Bill),  augmented  by  LLR  and 
other  precise  rotation  measurement  methods,  to  compare  with  gridded  zonal  wind  data 
from  the  U.S.  National  Meteorological  Center  (NMC)  or  the  European  Centre  for  Me- 
dium Range  Weather  Forecasts  (ECMWF).  This  paper  analyzes  the  wind-derived  at- 
mospheric angular  momentum  budget  for  the  period  January  1983  to  July  1987  and  the 
simultaneous  changes  in  the  Earth's  LOD  using  time  data  from  the  U.S.  Naval  Observ- 
atory (USNO)  and  zonal  wind  data  from  the  U.S.  Navy  Fleet  Numerical  Oceanography 
Center  NOGAPS  model.3  The  atmospheric  angular  momentum  changes  are  then  exam- 
ined over  two  latitude  bands  to  investigate  the  horizontal  structure  of  the  seasonal  and 
subseasonal  components  of  the  atmospheric  angular  momentum  and  contributions  to 
the  LOD  . 

B.     ASTRONOMIC  LENGTH  OF  DAY 

Astronomic  length  of  day  is  measured  by  comparing  elapsed  time  for  meridional 
transits  of  stars  or  quasars  with  a  reference  time  determined  by  atomic  clocks.  The  time 
it  takes  for  exactly  one  rotation  of  the  Earth  (360  degrees  of  longitude  change)  with  re- 
spect to  the  fixed,  inertial  reference  system  of  distant  stars  is  a  sidereal  day  with  a  mean 
value  of  86,164.0905  seconds.  Earth  time  is  generally  kept  with  respect  to  rotation  about 
the  sun:  the  solar  day.  A  mean  solar  day  is  sUghtly  longer  and  subject  to  more  variability 
than  the  sidereal  day  because  the  Earth  is  in  motion  about  the  sun.  Time  for  a  solar  day 
{LOD^)  is  defined  as  exactly  86,400  seconds.  LOD  is  defined  as  the  actual  elapsed  time 
(measured  by  cesium  clocks)  for  a  meridional  transit  of  a  point  on  Earth  with  respect  to 
an  inertial  frame.  Since  this  is  with  respect  to  sidereal  time,  a  conversion  is  applied  to 
make  it  consistent  with  solar  time  keeping. 


3  NOGAPS  is  Naval  Operational  Global  Atmospheric  Prediction  System.  It  is  a  mathematical 
model  which  generates  a  global  wind  and  pressure  analysis  on  a  2  Vi  by  2  Vi  degree  grid  spacing. 


LOD  is  related  to  the  Earth  rotation  rate  (co)  by: 

o  f^ODp  n  d(VT\) 

where  LOD  and  UTl  are  both  measures  of  the  actual  elapsed  time  of  the  solar  day,  (.1 
is  the  mean  sidereal  rotation  rate  (7.2921  x  10"^  5"')  of  the  Earth,  and  I  AT  is  the  precise 
time  reference  determined  from  atomic  clocks.  UTl  is  an  angular  measurement  of 
Earth's  polar  rotation  with  respect  to  sidereal  time  passage  which  is  usually  converted 
to  time. 

Changes  in  the  Earth's  rotation  rate  with  respect  to  accepted  standard  values  are:4 

LOD^  LOD^  d[UT\  -  LU\,.) 

LOD  i-OD^^^  dt  ^  ' 

Taking  the  difference  between  LOD  and  the  standard,  LOD^^,  to  be  SLOD  produces: 
.  ^  SLOP  ^  SLOD  diirn-IAT^ 

^''  =  -^-lUd-^-^-lod:  =  ^ 7t '  (^) 

where  L0D,,a  is  taken  equal  to  LOD^  and  lAT^^  is  taken  equal  to  a  sidereal  day,  although 
other  conventions  could  be  used  with  the  relationship  still  holding  (Eubanks  et  ai,  1985). 
The  approximation  in  (3)  is  valid  because,  using  a  time  step  of  one  sidereal  day,  LOD^, 
the  ratio  of  SLOD  to  LOD  is  the  same  as  the  ratio  of  SLOD  to  LOD^  to  within  IQ-'s. 
Using  finite  differences  to  approximate  the  UTl  derivative: 

[  {UTl-  IAT,,^\  -{UTl-  IAT,,^\.,  ^ 
SLOD    =     -LOdJ- sidM_^ stdA_AL\  (4^ 

Eq.  4  relates  daily  observations  of  star  and  quasar  transits  directly  with  the  precise 
elapsed  time  determined  by  atomic  clocks.  It  is  computed  on  a  daily  basis  {At  =  1  day) 
from  astronomic  data  gathered  all  over  the  world  to  help  eliminate  single  site  bias.  This 


4  By  subtracting  standard  values,  which  are  the  international  definitions  of  the  solar  and 
sidereal  days,  the  remaining  quantity  represents  a  change  from  the  standard  as  well  as  a  change  with 
respect  to  exactly  one  solar  day.  The  actual  measured  length  of  day  is  taken  with  reference  to  a 
beginning  epoch  (I  January  1900,  by  convention).  Thus  the  actual  length  of  day  {LCD)  is  the 
running  sum  of  the  changes  in  LOD  from  the  begimiing  of  the  epoch.  Thus,  the  term  SLOD,  as 
developed  in  Eq.  4  represents  a  time  derivative  only  in  the  sense  of  it  being  the  first  difference  of 
the  LOD  time  series.  If  the  first  difference  were  not  used,  the  numbers  associated  with  the  length 
of  day  would  be  so  large  as  to  be  cumbersome. 


quantity  is  compared  with  the  atmospherically  derived  equivalent,  SLOD^^^,  developed 
in  the  next  section. 

C.     ATMOSPHERIC  ANGULAR  MOMENTUM  AND  LENGTH  OF  DAY 

Over  long  periods  of  time  (centuries  and  longer)  Earth  angular  momentum  (^4,,^^) 
slowly  transfers  to  the  moon  through  solid  body  tidal  friction;  hence  LOD  increases 
slowly  and  M^.^^t,  decreases.  For  periods  less  than  10  years,  this  effect  is  negligible;  .\/Eanh 
is  essentially  conserved  (Eubanks  ei  al.\  1985,  Lambeck,  1980).  Thus,  changes  in  iV/g.^h. 
denoted  by  SM^„i^  will  sum  to  zero: 

Since  SM,^^  and  ^Msheii  interact  in  an  oscillator>'  manner  with  a  period  of  10  years  or 
greater,  SM^„^^  appears  in  short  data  records  (under  five  years)  as  a  Unear  trend  and  is 
easily  removed  by  detrending.  The  three  remaining  momentum  elements:  S^[^^^,  ^A/sheu 
and  (3iV/„,„„  interact  to  produce  changes  in  the  Earth  measured  LOD.  (5. >/„<.„„  is  difficult 
to  measure  directly.  To  exchange  momentum  with  the  rotating  Earth,  the  oceans  must 
have  unimpeded  zonal  flow  about  the  globe.  Only  the  Antarctic  Circumpolar  Current 
(ACC)  has  such  characteristics.  Lambeck  (1980)  agrees  with  the  earlier  findings  of  Munk 
and  MacDonald  (1960)  that,  at  most,  the  ACC  could  have  a  semiannual  amplitude  5% 
of  the  atmospheric  amplitudes.  Thus,  with  SM^^ntx  =  0,  and  disregarding  inputs  from 
the  ocean  and  core: 

^A^shell    =     -^^Kim-  (6) 

The  atmosphere  of  the  Earth  represents  about  10"*  of  the  total  mass  of  the  solid 
Earth  (solid  Earth  includes  crust,  mantle,  oceans  and  atmosphere;  everything  except  the 
liquid  core).  Because  of  the  large  difference  in  atmospheric  and  Earth  masses,  relatively 
large  changes  in  the  zonal  velocity  field  of  the  atmosphere  are  required  to  produce  small 
changes  in  M^heu- 

The  angular  velocity  (co)  of  the  Earth's  shell  (solid  Earth  minus  the  atmosphere)  is: 

(O   =  —r ,  (/) 

^  shell 

where  /V/jheii  is  the  angular  momentum  of  the  Earth's  shell  and  /jheii  is  the  polar  moment 
of  inertia.   Again,  after  subtracting  standard  values  from  ^A/jheii.  changes  in  a>  are: 


duj    =     —z .  (8) 

^shell 

Overbars  indicate  average  values  with  respect  to  time.  Since  /j^ei,  changes  little  on  time 
scales  less  than  decades,  it  is  taken  as  a  constant:  7.103  x  10^' kg  m^  Substituting 
—  (5A/„^  from  (6)  into  (8)  and  combining  with  (3)  yields: 


5L0D    =  °      -"'"'.  (9) 

^^  ^shell 


The  assumptions  leading  to  Eq.  (9)  imply  that  fluctuations  in  the  length  of  day  are  di- 
rectly proportional  to  fluctuations  in  the  atmospheric  angular  momentum.  One  purpose 
of  this  thesis  is  to  see  if  independent  observations  of  <5L0D  and  6M^,^  are  indeed  related 
as  predicted  by  (9). 

The  atmospheric  angular  momentum  at  any  time  can  be  measured  by  evaluating  a 
volume  integral  of  the  east- west  (w)  component  of  the  wind  from  the  surface  of  the  Earth 
to  the  top  of  the  atmosphere. 


r>2rr  n-r-     /»r=oo 


where  r  is  distance  from  the  center  of  the  Earth  and  U  is  the  absolute  zonal  velocity, 
\J  =  rQ.  cos  (t>  +  u,  and  u  the  zonal  wind.  The  hydrostatic  relationship  allows  pressure 
coordinates  to  be  substituted  for  p  dr. 


dr    =     -%.  (11) 


Since  the  depth  of  the  atmosphere  is  very  small  compared  to  the  radius  of  the  Earth,  r 
is  accurately  approximated  by  the  mean  radius  of  the  Earth,  i^g  (6-37  x  10'  m).  With  the 
above  substitutions  into  (10),  M.tm  becomes: 


■n 
1      pin  i'-:r     pSic 

M      =  — 


/I 

jo  7-W'-b^^E"  cos((/))  +  u);?l  cos'(0) .//.  ^0  ^0  .  (12) 


Separating  the  two  parts  of  the  integral  and  simplifying, 


InRl    plOOOmbpy  2 

lOOmb    J_^COS(c/))M^0^/^ 


+  Q-^f     f  ^  cos^(0)  AP  J(/)  ^0.  (13) 
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The  first  term  is  the  wind  or  motion  term  (Barnes  et  al.  1983).  The  zonal  wind  av- 
eraged by  latitude  bands  is  indicated  by  [w]  .  Integration  limits  of  100  mb  and  1000  mb 
for  the  motion  term  were  selected  because  the  NOGAPS  wind  analysis  extends  to  only 
100  mb  and  because  use  of  surface  winds  would  add  unnecessary  complexity  to  the  at- 
mospheric angular  momentum  calculations.  Since  winds  above  100  mb  constitute  less 
than  10%  of  the  mass  of  the  atmosphere,  exclusion  of  the  stratospheric  winds  should 
introduce  fairly  small  errors.  Rosen  and  Salstein  (1985)  found  the  stratospheric  contrib- 
ution to  A/jtm  to  be  positive  at  semiannual  periods  and  negative  at  annual  periods.  In 
other  words,  the  stratosphere  opposes  the  troposphere  (180°  out  of  phase)  at  annual 
cycles,  and  adds  to  tropospheric  angular  momentum  at  semiannual  cycles.  The  ampli- 
tudes of  these  signals  are  less  than  10%  of  the  tropospheric  term  for  annual  periods,  and 
30%  of  the  tropospheric  term  for  the  semiannual  term.  Surface  winds  are  not  used  be- 
cause of  conflicts  where  surface  pressure  is  near  1000  mb  (most  of  the  globe).  In  that 
case  the  near  surface  winds  would  be  doubly  represented. 

The  second  term  of  (13)  is  the  pressure,  or  matter,  term  (Barnes  et  al.,  1983).  Most 
studies  to  date  have  dropped  the  pressure  term  for  lack  of  accurate  surface  pressure  data. 
Barnes  et  al.  (1983)  used  the  special  observations  from  the  GARP  (Global  Atmospheric 
Research  Program)  of  1979  to  evaluate  the  pressure  term  and  its  contribution  to  M^^,. 
They  concluded  that  pressure  variations  in  M^i^  are  in  phase  with  the  wind  term  and 
fairly  constant  at  10%  of  the  wind  term  amplitude.    Indirect  studies  by  Morgan  et  al. 


(1985)  show  the  pressure  term  to  be  10%  of  the  wind  term  at  seasonal  periods  and  no 
more  than  25%  at  shorter  periods. 

Standard  values  are  subtracted  from  .\f„^  to  give  oM^i^  .  The  standard  value  for  both 
the  wind  and  pressure  terms  are  taken  to  be  zero.  This  is  consistent  with  the  atmosphere 
having  a  net  angular  momentum  of  zero  with  respect  to  the  IZarth.  Neglecting  the 
pressure  term  in  (13)  and  using  (9),  changes  in  the  Earth  observed  angular  momentum 
caused  by  the  atmosphere  are: 

Eq.  14  represents  the  change,  in  units  of  time,  that  changes  in  the  zonal  wind  will  have 
on  the  rotation  of  the  Earth.  Thus,  the  independently  determined  measures  of  SLOD 
from  (4)  and  (14)  should  be  the  same  if  the  atmosphere  is,  in  fact,  responsible  for  forcing 
short  period  changes  in  Earth  observed  length  of  day.  The  data  processing  and  the 
variance  computations  are  described  in  the  next  chapter,  and  all  of  the  results,  impU- 
cations  and  interpretations  are  given  in  Chapter  III. 


II.     DATA  ACQUISITION  AND  PROCESSING 

A.  U.S.  NAVAL  OBSERVATORY  LOD  MEASUREMENTS 

xVIeasures  of  SLOD  for  the  period  January  1983  to  July  1987  were  obtained  from  the 
U.S.  Naval  Observatory',  Washington,  D.C.  (USNO).  Included  in  the  data  set  were  both 
the  Naval  Observatory  and  the  French  Bureau  International  de  I'Heure  (BIH)  estimates 
of  (5L0Z).  For  notation  purposes,  ^LOD^J^^o  will  refer  to  the  USNO  data  and  SLOD^^h 
to  the  French  data. 

B.  NOGAPS  WIND  DATA 

Twice  daily  analyses  of  the  global  zonal  winds  for  the  January  1983  through  August 
1987  observation  period  were  obtained  from  the  NOGAPS  model  at  the  U.S.  Navy  Fleet 
Numerical  Oceanography  Center,  Monterey  CA.  The  data  were  in  the  Navy  Environ- 
mental Data  Network  (NEDN)  format.  Reporting  levels  for  the  winds  were  standard 
levels  plus  925  and  250mb.5  The  2  Vi  °  by  2  Vi  °  grid  produces  10,512  reporting  points 
for  the  winds.  A  FORTRAN  program  was  written  to  decode  the  NEDN  format,  ma- 
nipulate the  11  by  10,512  element  matrix  and  reduce  the  data  to  a  single  value  of 
<3L0Z),tn,.  Eq.  14  was  approximated  by  zonally  averaging  the  matrix,  integrating  verti- 
cally (using  a  trapezoidal  approximation  for  the  unevenly  spaced  pressure  levels),  ap- 
plying the  cos^  latitude  terms  and  summing  over  latitude.  Since  the  integration  over 
latitude  was  performed  last,  the  program  was  easily  modified  to  get  5L0D^^^  values  for 
specific  latitude  bands  as  well  as  the  globe  as  a  whole.  Appendix  A  contains  the  source 
code  for  the  program. 

The  archived  data  had  few  (less  than  4%)  missing  data  points.  All  of  the  missing 
observations  in  the  wind  data  were  interspersed  such  that  linear  extrapolation  of  the 
missing  winds  could  be  made.  The  resulting  time  series  was  smoothed  with  a  three-day 
moving  average  filter  and  decimated  to  1622  elements. 

Similar  steps  were  taken  in  determining  SLOD^^„  values  for  latitude  bands  within 
15°  and  20°  of  the  equator,  respectively.  Values  for  the  remainder  of  the  globe  were  ob- 
tained by  subtracting  the  latitude  band  series  from  the  original  SLOD^^^  series.    The 


5  Standard  levels  include  surface,  1000,  850,  700,  500,  400,  300,  200,  150  and  100  mb.  Surface 
winds  were  not  used  to  calculate  dLOD^^^  because  of  the  possible  confusion  with  the  1000  mb 
winds. 


purpose  of  the  regional  analysis  was  to  investigate  the  possible  physical  mechanisms 
contributing  to  the  LOD  and  M^^^  relationships. 

C.     ANALYSIS  TECHNIQUES 

Fig.  1  on  page  22  shows  the  global  SLOD,,^  and  the  SLOD^^sio  plotted  together.  The 
time  data  have  an  obvious  decreasing  linear  trend,  while  the  atmospheric  data  do  not. 
The  means  of  both  series  were  removed  prior  to  plotting.  The  trend  in  the  time  data  is 
from  decade  fluctuations  in  the  LOD  caused  by  core,' shell  coupling  (Munk.  and 
MacDonald,  1960  and  Lambeck,  1980).  The  trend  was  removed  by  subjecting  both  series 
to  a  least  squares  algorithm  found  in  Bendat  and  Piersol  (1971,  equation  9.20).  The  two 
detrended  series  are  plotted  in  Fig.  2  on  page  22.  All  of  the  series  developed  in  the 
analysis  were  detrended  with  this  scheme. 

1.     Time  Domain  Analysis 

Both  series  were  subjected  to  linear  filtering  to  isolate  seasonal  and  subseasonal 
components.  First,  the  high  frequency  noise  and  tidal  oscillations  were  removed  with  a 
sine  squared  weighted  moving  average  filter  (also  known  as  a  Manning  filter)  of  23  points 
(Fig.  3  on  page  23).  Weights  for  such  a  filter  are  determined  by  Robinson  and  Silvia, 
(1978): 

K  =  si^'(irrr)    "  =  1,2,3  ...,m,  (ls) 

where  IV„  are  the  filter  weights  and  M  is  the  total  number  of  weights.  The  sin^  weights 
minimize  spectral  distortion  through  unwanted  side  lobe  leakage  at  the  expense  of  a 
slightly  smeared  frequency  spectrum  (Robinson  and  Silvia,  1978).  By  keeping  the  filter 
symmetric,  phase  information  of  both  series  is  preserved.  Symmetric  apphcation  of  the 
filter  results  in  the  general  expression  of  the  transformed  series  j/^,,  (Robinson  and  Silvia, 
1978,  Eq.  6.4): 

\f-\ 

2 

The  frequency  response,  or  convolution,  of  a  symmetric,  moving  average  filter  of  M 
points  is  given  by: 


H(/)    =     -^^{h^  +  2l^fiiCOs{2nr:J)],  (17) 


/=i 


M  +  1 

where  the  series  h  represents  the  first  {n  =  — - — )  weights  of  the  synimetric  series  IV„ 

and  hg  is  the  center  weight  of  the  full  series  M.  The  term  h^  will  always  equal  one,  since 
It  is  the  center  weight.  Subtraction  moving  average  filters  have  a  transfer  fianction  of 
1  —  H(/)  and  serve  to  pass  high  frequencies.  Sine  squared  weights  produce  transfer 
functions  almost  devoid  of  side  lobes.  Plots  of  H(/)  for  each  of  the  filters  used  are  con- 
tained in  Appendix  C. 

One  drawback  to  using  convolution  techniques  is  the  loss  of  M  —  1  data  points 
(half  at  each  end  of  the  series)  with  each  pass  of  the  filter.  This  is  particularily  noticeable 
when  using  a  long  string  of  filter  weights  often  required  for  lowpass  systems.  Nonethe- 
less, the  record  length  of  the  data  (1622  points),  affords  sufiicient  length  to  use  fairly 
long  series  of  weighted  moving  average  filters. 

To  isolate  the  seasonal  terms  in  the  SLOD^jsno  ^^^  <5L0Z),t„  series,  a  75-point 
sin^  weighted  lowpass  filter  was  applied  twice  to  both  series.  The  effect  of  successive  fil- 
terings in  the  time  domain  is  multiplication  of  the  transfer  functions  in  the  frequency 
domain.  The  transition  band  with  a  double  pass  is  narrower  than  that  of  a  single  pass. 
Periods  less  than  50  days  are  completely  attenuated.  The  amplitude  of  annual  periods 
are  attenuated  by  5%  and  the  semiannual  terms  are  diminished  by  18%.  The  resulting 
series  are  plotted  in  Fig.  4  on  page  23  and  the  transfer  function  is  plotted  in  Fig.  18  on 
page  47.  To  further  separate  the  seasonal  terms  into  annual  and  semiannual  compo- 
nents, both  series  were  subjected  to  a  183-point  unweighted  moving  average  filter.  The 
sin^  weights  would  have  required  too  many  points  to  adequately  filter  out  the  semiannual 
terms.  Using  the  "boxcar"  unweighted  filter  of  183  points  put  the  first  zero  at  exactly  the 
semiannual  period,  allowing  almost  complete  attenuation  of  those  signals.  Disadvan- 
tages of  this  type  of  filter  are  the  fairly  large  side  lobes  at  frequencies  above  the  first  zero 
crossing  (183  days).  Since  the  boxcar  has  a  fairly  narrow  transition  band,  the  remaining 
annual  terms  were  still  about  65%  of  their  original  amplitude.  The  filter  response  is 
contained  in  Fig.  19  on  page  48  in  Appendix  C,  and  the  filtered  series  is  Fig.  5  on  page 
24.  To  isolate  the  semiannual  terms,  the  series  obtained  from  the  183-point  boxcar  filter 
was  subtracted  from  the  twice  run  75-point  weighted  series.  The  resulting  semiannual 
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series  was  attenuated  less  than  15%  at  periods  of  200  days.  Response  for  this  series  is 
contained  in  Fig.  20  on  page  48. 

Oscillations  with  periods  from  20  to  100  (subseasonal)  days  were  isolated  with 
high  and  lowpass  filters.  The  highpass  filter  consisted  of  two  passes  of  a  subtracted 
moving  average  of  75  points.  Lowpass  was  achieved  with  a  single  run  of  a  23-point 
weighted  moving  average  filter.  The  resulting  series  are  plotted  in  Fig.  7  on  page  25. 
Fig.  21  in  Appendix  C  contains  the  frequency  response  of  the  filter. 

For  latitude  band  comparisons,  the  ()LOZ)lsno  series  was  separated  into  rela- 
tively high  frequency  (subseasonal)  and  relatively  low  frequency  (seasonal)  components. 
The  transition  band  was  from  1/60  c/ov"'  to  1/150  c/ay-'.  These  two  series  (heavy  lines 
in  Figs.  4  and  7),  (5LOZ)usNo.seasonai  and  ^LOZ^LSNo-^utse.sr  ^^'ere  then  individually  compared 
to  the  corresponding  OLOD^,^  time  series  generated  from  tropical  and  extratropical  zonal 
winds.  These  plots  are  contained  in  Figs.  8  through  11.  Naming  conventions  for  these 
series  are: 


•  (5LODL-sNojea$onii"  Seasonal  (150  to  365  day  periods)  values  of  USNO  determined 
SLOD  .' 

•  (5Z-OD|^s.\osubseas:  Subscasonal  (20  to  100  day  periods)  values  of  USNO  determined 
SLOD.  ' 

•  SLOD,,^is'  Atmospherically  derived  6L0D  from  \5°N  to  15°5. 


• 


• 


dLOD,,^~y  Atmospherically  derived  dLOD  from  15°A^  to  the  North  Pole  and  \5°S 
to  the  South  Pole. 

dLOD,i^2o    ^^^    <5LOZ)„„7o:    Atmospherically    derived    SLOD    with    cutoff    at 
20°.V  and  S. 


2.     Frequency  Domain  Analysis 

Prior  to  Fourier  analysis,  each  series  was  tapered  with  a  cosine  bell  to  reduce 
leakage  at  the  ends  of  the  time  series  data.  Both  series  were  extended  to  a  length  of  2048 
points  by  the  addition  of  zeros  to  each  end  of  the  record.  The  effects  of  the  tapering  were 
removed  after  the  transform  by  dividing  each  element  by  the  ratio  of  the  area  of  the  ta- 
per (the  cosine)  to  the  rectangular  boxcar  area  replaced  by  the  taper;  a  factor  of  0.875 
(Bendat  and  Piersol,  1971). 

A  record  length  of  2048  permitted  the  use  of  the  Fast  Fourier  Transform  (FFT) 
algorithm  (Bendat  and  Piersol,  1971),  significantly  cutting  down  the  computation  time 
required  for  the  transforms.  After  transforming,  the  complex  valued  cross  spectral  am- 
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plitude  coefTicients  were  determined  from  the  complex  amplitude  coefTicients  of  the  time 
and  atmospheric  series  (X(„)  and  Y(„j).  Cross  spectral  coefllcients  are: 

^^(n)     =       'n- A7  =  0,1,2...,    —,  (18) 

N 
where  n  represents  the  index  number  of  the  —  +1  resolvable  frequencies  from  a  sample 

size  of  .V  and  X*  is  the  complex  conjugate  of  X.  The  three  complex  valued  scries, 
X,  Y,  and,  XY,  were  then  smoothed  in  order  to  increase  the  confidence  intervals  of  the 
power  spectral  density  functions  as  well  as  the  coherence  squared  (y^)  and  phase  ((/>) 
functions.  Prior  to  smoothing,  the  spectral  estimates  were  prewhitened  by  multiplication 
by  the  square  of  the  frequency  at  each  estimate.  Jenkms  and  Watt  (1968)  state  that  es- 
timates of  coherency  and  phase  should  be  based  on  white  spectra.  This  technique  (also 
used  by  Eubanks  et  ai,  1985),  compensates  for  the/-^  power  law  followed  by  both  the 
time  and  atmospheric  data.  The  complex  spectral  and  co-spectral  estimates  were 
smoothed  with  a  seven-point  unweighted  moving  average  to  give  14  degrees  of  freedom 
for  calculating  confidence  and  significance  intervals.  Energy  density  estimates  were 
formed  by  taking  the  magnitude  of  the  complex  coefficients: 


,n)l  ^  2|Y/„\| 

Gx    =     TT-       ;      (^v    =     TT— •  (19) 


2lX,,,r  A  21Y, 


Coherence  squared  is  defined  as: 


0,2 

V     *  V        2 

y    - 

GMGSn) 

(20) 


Phase  is  determined  by: 

^  ,     _,    lm[X,„)'- V,„,] 

"^   =    '^"      Real[X,„,.  Y,„g  '  <^" 

Eqs,  19,  20  and  21  were  calculated  and  plotted  for  the  5LOZ)usno  and  SLOD^^^  series,  as 
well  as  the  tropical  and  extratropical  ^LOD^^^  series  against  the  SLOD^^^^io  •  Figs.  12 
through  16  are  the  plots  for  these  series. 
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3.     Harmonic  Analysis 

For  comparison  with  earlier  findings  of  Rosen  and  Salstein  (1985),  Morgan  ci 
al.  (1985),  and  Langley  et  ai  (1981),  a  harmonic  analysis  was  performed  to  obtam  the 
annual  and  semiannual  terms  of  both  time  and  atmospheric  signals.  1  he  Fourier  anal- 
vsis  was  done  for  the  three  calendar  vears  for  which  the  data  were  continuous:  1984. 
1985  and  1986.  Phase  and  amplitude  were  determined  from  the  sine  and  cosine  sums  of 


.365 


,^365 


4)sin  =    765"  Jo     ^'W  sin(2;:y;0^r ;    ^^eos  =    "3^  Jo     ^^0  cos(27r/;r)c//,        (22) 

where/  is  the  frequency  of  interest  (1/365  ^ay'  and  1/182.5  t/ay')  and  t  is  the  integer 
time  in  days  from  the  beginning  to  the  end  of  the  year.  Amplitude  for  the  frequencies  is 
\l  ^}coi  +  ^^^.n  ^nd  phase  is  idin-^A^^JA^^^  converted  to  days  from  1  January  of  that  year. 
Results  and  comparisons  with  earlier  findings  are  in  Table  3. 
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III.     RESULTS 

A.     GLOBAL  COMPARISON  IN  THE  TIME  DOMAIN 

The  deirended  dLOD^^^-^o  and  SLOD,^^  series  (Figs.  2  and  3)  match  fairly  closely. 
The  linear  correlation  coetficient  for  the  two  series  with  tides  and  high  frequency  noise 
removed  is  0.990.^  From  Fig.  2  on  page  22  it  can  be  seen  that  the  signals  with  the  longer 
periods  have  larger  amplitudes.  This  is  the  time  domain  analogy  of  the /^^  relationship 
found  in  the  spectra  of  (5LOZ)lsno  '^^^  ^^^^im-  The  lowest  period  that  correlation  can 
be  expected  is  around  20  days  because  the  23-point  filter  used  to  smooth  the  data 
completely  removes  periods  of  15  days  or  less.  Additionally,  contamination  from  the 
unwanted  tidal  signal  at  a  period  of  13  days  would  make  correlation  at  or  near  that  pe- 
riod impossible. 

1.     Seasonal  Components 

Seasonal  variations  stand  out,  with  the  largest  values  of  both  dLOD^^-^Q  and 
SLOD^^^  occurring  in  January  and  July.  Munk  and  MacDonald  (1960)  observed  these 
seasonal  elTects,  and  also  noted  that  the  amphtudes  of  the  annual  oscillations  were 
greater  in  July  than  in  January.  This  corresponds  to  the  uneven  contribution  (by  almost 
a  factor  of  two  in  Munk  and  MacDonald's  computations)  of  the  two  hemispheres  to  the 
angular  momentum  budget  during  January  and  July.  Thus,  a  typical  day  in  January  is 
almost  one  millisecond  longer  than  a  typical  day  in  July.  In  January,  strong  westerlies 
from  the  winter  (northern)  hemisphere  dominate  the  global  angular  momentum  and 
cause  the  observed  decrease  in  the  length  of  day.  In  other  words,  the  Earth  spins  slower 
because  the  atmosphere  is  spinning  faster.  In  July,  the  upper  level  westerlies  in  the 
northern  hemisphere  are  weakened  by  the  breakdown  of  the  midlatitude  baroclinic  zone. 
Meanwhile,  the  southern  hemisphere,  because  of  its  smaller  land  mass,  does  not  com- 
pensate with  stronger  westerlies.  The  net  effect  is  for  a  minimum  of  atmospheric  angular 
momentum  in  July  and  a  corresponding  maximum  in  Earth  rotation  rate,  and  the  reverse 
in  January;  maximum  angular  momentum  and  minimum  earth  rotation  rate. 


6  The  linear  correlation  coefficient  is  defined  as  p  =  Covja^o^.  Its  analogy  in  frequency 
space  is  coherence,  although  the  coherence  statistic  used  in  this  paper  is  more  properly  called  co- 
herence squared  (y  ^);  see  Eq.  (20).  Direct  comparisons  of  the  two  statistics,  y  ^  and  p,  is  of  qual- 
itative value  only  because  y^  is  frequency  dependent  wliile  p^y  is  not. 
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The  seasonal  components  oCSLODtj^so  ^nd  SLOD^,^  (Fig.  4  on  page  23)  appear 
to  be  two  in-phase  sinusoids  of  annual  and  semiannual  frequency.  The  linear  correlation, 
0.990,  is  significantly  higher  than  the  subseasonal  linear  correlation  of  0.853  (refer  to 
Table  1),  The  SLOD^^s^o  has  slightly  greater  amplitude,  shown  by  its  greater  variance 
(Table  1).  Since  a  fundamental  assumption  (made  earlier)  is  that  the  SLOD^j^-^q  signal 
represents  the  total  of  all  atmospheric  (as  well  as  other,  unmodelled,  sources  oO  angular 
momentum,  it  is  not  surprising  that  the  seasonal  terms  of  the  atmosphere  are  less  than 
the  time  signals.  The  neglected  pressure  term  in  (13),  oceanic  currents,  and  stratospheric 
winds  are  probably  the  missing  inputs  to  balance  the  seasonal  terms.  Of  particular  note 
is  the  difference  in  amphtudes  found  in  mid  July  of  1984  and  1986.  The  Quasi- 
Biennual-Oscillation  (QBO)  peaked  at  exactly  those  two  times  (R.A.  Madden,  personal 
communication,  1988).  The  peak  was  for  easterly  stratospheric  winds;  enough  to 
quaUtatively  account  for  the  significant  amplitude  difference  of  the  troposphere  and 
measured  LOD. 

Figs.  5  and  6  are  the  decompositions  of  the  seasonal  signals  depicted  in  Fig.  4 
on  page  23  into  annual  and  semiannual  parts.  Annual  terms,  Fig.  5  on  page  24,  appear 
smaller  than  those  determined  by  harmonic  analysis  (Table  3)  because  the  filter  transfer 
function  (required  to  separate  the  closely  spaced  annual  and  semiannual  terms)  atten- 
uated the  annual  signal  65%.  Fig.  19  in  Appendix  C  is  the  plot  of  the  spectral  response 
of  the  filter  used  to  isolate  these  terms.  Residuals  of  <5LOZ)lsno  ^nd  dLOD^,^  show  a 
small  biannual  bias  which  is  probably  associated  with  the  QBO. 

Fig.  6  on  page  24  contains  the  semiannual  part  of  the  seasonal  signal.  The 
spectral  response  of  the  filtering  (Fig.  20,  Appendix  C)  show  minimal  ampUtude  losses 
due  to  the  filtering  process.  The  ampUtude  from  the  plot,  about  0.3  ms,  agrees  well  with 
the  harmonic  analysis  (Table  3)  and  with  the  findings  of  Rosen  and  Salstein  (1985). 
These  data  show,  as  other  data  have  in  previous  studies,  that  variations  in  the  length  of 
the  day  on  seasonal  timescales  (annual  and  semiannual  periods)  are  almost  entirely  due 
to  meteorological  influences. 

2.     Subseasonal  Components 

Subseasonal  is  defined  to  include  periods  from  20  to  150  days.  Fig.  7  on  page 
25  shows  the  close  match  of  the  subseasonal  signals  in  both  phase  and  amplitude.  The 
correlation  coefficient  of  the  two  series  is  0.853.  The  high  peaks  are  associated  with  pe- 
riods around  50  days  while  the  lower  peaks  correspond  to  shorter  periods,  as  is  expected 
with  the/-^  power  spectrum  discussed  earlier.   The  50-day  peaks  are  perhaps  associated 
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with  the  40-50  day  oscillations  in  the  tropics  first  described  by  Madden  and  Julian 
(1971).  The  average  amplitude  of  0.25  ms  is  slightly  larger  than  that  found  by  Eubanks 
et  al.  (1985)  for  the  period  1977-1981,  and  agree  well  with  the  findings  of  Morgan  et  al. 
(1985)  for  the  period  1981-1983. 

B.     GLOBAL  COMPARISONS  IN  THE  FREQUENCY  DOMAIN 

1.  The  Energy  Density  Spectra  of  5L0D,^„  and  (5LOZ>lsno 

Plots  of  (5LOZ)lsno  ^^^  ^^OD^^^  energy  density,  coherence  and  phase  are  con- 
tained in  Fig.  12  on  page  28.  The  most  striking  feature  of  the  energy  density  plot  is  the 
large  peaks  at  annual  and  semiannual  periods.  This  is  consistent  with  the  largest  ampli- 
tude oscillations  in  the  time  domain  (Fig.  2  on  page  22)  occurring  seasonally.  Also 
noteworthy  are  the  sharp  spikes  at  periods  of  13  and  seven  days  in  the  dLOD^j^^^o  spec- 
trum. These  are  high  frequency  tidal  oscillations  which  were  not  filtered  out  of  the  ori- 
ginal time  data. 

The  slope  of  both  spectra  is  -2  (indicated  by  the  sloping  double  line  on  the  en- 
ergy density  plot).  Eubanks  et  al.  (1985),  state  that,  while  the  cause  of  the/-^  dependence 
in  the  power  spectrum  is  not  clear,  it  shows  up  in  a  wide  variety  of  geophysical  phe- 
nomena. Near  the  Nyquist  frequency  of  .5  day-',  the  SLOD^^f^o  spectrum  falls  off  at  a 
more  rapid  rate  than  expected  by  the/-^  relationship.  This  is  an  indication  of  the  lower 
noise  level  of  the  SLODi^^y;^  data.  Eubanks  et  al.  (1985)  experiments  were  conducted 
prior  to  recent  advances  in  more  accurate  astronomic  LOD  measurements;  thus  their 
data  probably  have  a  somewhat  noisier  spectrum  at  higher  frequencies  (personal  com- 
munication with  J.O.  Dickey,  co-author  with  Eubanks  et  al.,  1985). 

At  periods  of  16  days  and  greater,  the  two  spectra  are  in  agreement.  In  addition 
to  the  broad  peaks  at  annual  and  semiannual  periods,  there  are  broad  peaks  at  75  and 
50  days,  and  narrower  peaks  at  33  and  25  days. 

2.  Coherence  Spectrum 

The  coherence  spectrum  in  Fig.  12  shows  strong  coherence  (or  correlation)  at 
seasonal  as  well  as  periods  centered  around  75,  50,  33,  25  and  20  days.  As  would  be 
expected,  these  periods  show  corresponding  power  in  the  energy  density  plots.  The  95% 
confidence  line  in  the  coherence  plot  is  derived  from  a  95%  significance  level  in  rejecting 
a  null  hypothesis  of  no  coherence  between  the  two  series.  The  coherence  plot  agrees 
well  with  that  of  Eubanks  et  al.  (1985).  Of  note  is  the  rapid  drop  off  in  coherence  at 
periods  around  125  days  (also  found  by  Eubanks  et  al.  1985).  This  may  be  related  to  a 
general  lack  of  power  in  both  the  SLOD^^^n  ^^^  <3LOZ)l'sno  spectra,  however,  the  loss  of 
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power  does  not  completely  explain  the  steep  drop  in  coherence.  It  is  possible  that 
whatever  (weak)  oscillations  there  are  in  the  length  of  day  at  periods  around  125  days, 
they  are  not  of  meteorological  origin.  Significant  coherence  at  periods  as  low  as  20  days 
indicates  that  the  atmosphere  can  generate  short  period,  high  frequency,  changes  in  the 
LOD  .  Given  accurate  enough  time  and  wind  data,  fluctuations  of  even  one  or  two  day 
time  scales  will  eventually  be  resolved  (Lambeck,  1980). 

3.  Phase  Spectrum 

The  phase  plot  shows  that,  except  for  a  small  spike  at  125  days,  changes  of 
5LC> At^and  dLOD^^^Q  occur  within  five  days  of  each  other.  Generally,  phase  is  closest 
to  zero  where  coherence  is  highest,  indicating  changes  in  angular  momentum  are  rapidly 
transmitted  between  Earth  and  atmosphere.  Measurements  of  atmospheric  angular 
momentum  in  this  study  cannot  readily  be  decomposed  into  specific  torques  responsible 
for  transfer  of  momentum.  Swinbank  (1985)  found  that  shorter  period  fluctuations 
(from  daily  to  subseasonal)  result  from  mountain  torques  (pressure  differences  across 
north/south  oriented  mountain  ranges)  and  seasonal  variations  result  from  friction 
torques  (frictional  drag  at  the  surface  boundary  layer  of  the  Earth  and  atmosphere). 

4.  Harmonic  Analysis 

Amplitude  and  phase  information  of  the  first  two  harmonic  frequencies  of 
<5LOZ)lsno  and  SLOD^,^  were  calculated  by  year.  The  results  (Table  3)  compare  favora- 
bly with  previous  studies  (Morgan  et  ai,  1985,  and  Rosen  and  Salstein,  1985),  although 
the  annual  amplitudes  found  in  this  study  show  more  variabihty  than  those  found  in  the 
previously  cited  studies.  Of  note  is  the  two-month  variation  in  phases  (Jan-Feb  for  an- 
nual terms  and  May-Jun  for  semiannual  terms). 

C.     LATITUDE  COMPARISONS  OF  LOD 

Comparisons  of  ^LOZ^usnq  with  tropical  and  extratropical  partitions  of  <5L0Z)„^are 
shown  in  Figs.  13  through  16.  As  noted  above,  the  reason  for  computing  SLOD^^^  over 
specific  latitude  bands  (equatorial  and  extratropical  regions,  respectively)  is  to  try  to 
identify  the  particular  geographical  region  that  is  contributing  to  the  high  coherence 
between  SLOD^^^  and  <5LO£)usno-  Energy  density  plots  show  significant  drops  in  power 
at  periods  between  one  year  and  30  days  for  the  extratropical,  SLOD^,^-,^  and  dLOD^^^,^, 
scries.  The  two  tropical  series,  {6100^^^^^  and  dLOD^^^io)  show  power  losses  only  at  pe- 
riods longer  than  100  days.  Coherence  for  the  extratropical  series  dropped  below  0.5  for 
most  periods  between  30  and  100  days;  for  the  tropical  series,  coherence  at  these  periods 
dropped  only  slightly.  Coherence  falls  off  rapidly  in  both  tropical  and  extratropical  series 
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around  periods  of  125  days.  The  extratropical  series  fall  to  near  zero  at  these  periods. 
This  may  be  related  to  the  local  minimum  of  power  at  periods  from  80  to  125  days  in 
all  atmospheric  and  USXO  energy  density  plots.  The  phase  plots  show  that  at  the  an- 
nual period,  changes  in  the  atmosphere  tend  to  lead  changes  in  the  length  of  day  in 
extratropical  latitudes  (Fig.  14  and  especially  16)  while  they  tend  to  lag  changes  in  the 
length  of  day  in  the  equatorial  regions.  This  simply  reflects  the  fact  that  the  annual  cycle 
in  the  equatorial  region  is  shifted  or  delayed  somewhat  in  time  relative  to  the  middle 
latitudes. 

At  subseasonal  periods,  it  is  very  difficult  to  interpret  much  about  the  geographical 
origin  of  events  with  periods  shorter  than  about  30  days.  The  generally  high  power  and 
coherence  near  20-30  days  in  Fig.  12  does  not  seem  to  be  of  only  equatorial  or  only 
midlatitude  origin.  However,  the  evidence  very  clearly  indicates  that  the  tropics  and 
equatorial  regions  are  responsible  for  most  of  the  fluctuations  of  6L0D  in  the  40-to 
100-day  range.  Thus,  the  high  power  and  coherence  at  50-60  day  and  at  70-100  day 
periods  in  Fig.  12  also  appear  in  Figs.  13  and  15  (using  only  tropical  wind  data),  but  they 
are  completely  absent  in  Figs.  14  and  16  where  only  extratropical  wind  data  were  used 
in  computing  SLOD^^^.  The  dividing  line  between  the  tropical  and  extratropical  regions 
is  not  ver>'  clear  because  only  two  latitude  bands  have  been  considered.  Also,  seasonal 
signals  are  still  apparent  in  the  tropical  regions,  and,  to  a  lesser  degree,  subseasonal 
(40-to  100-day  periods)  oscillations  are  seen  outside  the  tropics. 
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IV.     SUMMARY 

It  is  clear  that  changes  in  atmospheric  angular  momentum  can  account  for  the  vast 
majority  of  short  period  (one  year  or  less)  changes  in  the  LOD  .  Time  and  frequency 
domain  analyses  show  that  over  90%  of  the  variance  in  seasonal  and  subseasonal  peri- 
ods o[  dLOD,^^  is  explained  by  SLOD^^s^q.  Meteorological  activity  is  responsible  for  all 
changes  in  LOD  within  present  measurement  capabilities.  While  error  analysis  of  the 
atmospheric  and  time  series  is  beyond  the  scope  of  this  paper,  Morgan  et  al.  (1985)  ac- 
counted for  most  of  the  variances  between  the  series  as  being  within  measurement  limits. 
In  addition,  Rosen  and  Salstein  (1985)  reduced  the  variance  due  to  unknown  sources  to 
less  than  0.04  (ms)^  for  annual  and  0.03  (ms)^  for  semiannual  terms  (measured  in  units 
of  amplitude).  Phase  differences  between  dLOD^^^  and  SLOD^j^^o  ^re  very  near  zero,  in- 
dicating that  an  almost  instantaneous  transfer  of  angular  momentum  occurs  between 
Earth  and  the  atmosphere.  Additionally,  when  the  pressure  term  is  included,  an  rms  er- 
ror of  less  than  0.25  (ms)^  at  seasonal  periods  results  (Barnes  et  al.,  1983).  Other  studies 
(Eubanks  et  al.,  1985  and  1986),  conclude  that  measurement  errors  exceed  the  unex- 
plained variance  o[  SLOD. 

The  value  of  establishing  the  strong  coherence  and  correlation  of  the  independently 
measured  signals  of  (5L0D,t„  and  SLOD^J^^Q  include: 

•  Astronomic  measures  of  LOD  can  be  used  as  an  independent  measure  of  the  state 
of  the  zonal  atmospheric  winds.  Analysis  and  forecasting  models  can  use  this  as  a 
check  of  data  consistency. 

•  Rapid  changes  of  LOD,  such  as  were  observed  in  the  El  Nino  event  of  1983,  can 
perhaps  be  used  to  infer  future  El  Nino  events  (Eubanks  et  al.  1986,  and  Rosen 
et  al.  1984).  Other  weather  phenomena  with  a  strong  zonal  component,  such  as  the 
40-50  day  tropical  oscillations,  can  be  temporally  located  by  real  time  filtering  and 
analysis  of  ^LOZ)„n,  data. 

•  Dickey  et  al.  (1986)  reported  that  atmospheric  angular  momentum  can  be  used  to 
infer  real  time  6 LOD.  This  is  required  for  extremely  precise  Earth  position  fixes  to 
navigate  spacecraft.  Real  time  calculations  of  atmospheric  angular  momentum  and 
SLOD^^^  are  currently  computed  and  archived  by  NMC. 

The  findings  of  this  paper  are  in  agreement  with  previous  studies.  The  finer  resol- 
ution of  the  USNO  time  data  beginning  in  1983  (the  BIM  time  data  also  had  similar 
improvements  starting  in  1983)  shows  that  atmospherically  and  astronomically  derived 
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OLOD  are  coherent  down  to  periods  of  20  days  or  less.  The  NOGAPS  wind  analyses 
compare  well  with  similar  studies  done  with  NMC  or  ECMWF. 

Comparing  latitude  bands  of  integrated  SLOD,,^  with  (5LOZ)l5no  confirms  that  there 
is  spatial  variability  in  both  phase  and  amplitude  of  atmospheric  angular  momentum. 
Seasonal  changes  at  annual  periods  of  dLOD  appear  to  originate  primarily  in  the 
cxtratropical  regions.  Subseasonal  fluctuations  (30-100  day  periods)  in  oLODji^have 
significantly  more  amplitude  (power)  and  coherence  with  (^LOD^sno  when  computed 
from  tropical  data  than  extratropical  data.  This  strongly  suggests  that  changes  in  the 
length  of  day  at  these  time  scales  is  produced  by  meteorological  events  in  the  iropics- 
e.g.  the  30-60  day  oscillations  of  Madden  and  Julian  (1971,  1972).  Further  study,  in- 
cluding more  latitude  band  divisions  of  the  globe  is  required  to  be  more  exact  on  the 
position  of  the  dividing  line  between  the  tropics  and  extratropics.  This  study  indicates 
that  the  latitude  band  responsible  for  most  of  the  subseasonal  fluctuations  of  the  length 
of  the  day  is  approximately  20° A^  to  20°5. 
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Table  2.     VARIANCES 
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Table  3.     PHASE  AND  AMPLITUDES  OF  LOD 


Annual 

Semiannual 

amplitude' 

phase^ 

amplitude 

phase 

dlOD^.^o 

1984 

0.290 

Jan  14 

0.205 

May  15 

SLOD,,^ 

1984 

0.269 

Jan  12 

0.223 

Mav  10 

SLOD^.^o 

1985 

0.434 

Feb  25 

0.366 

Jun  10 

OLOIK^ 

1985 

0.469 

Feb  28 

0.359 

Jun  11 

SLOL\,s,o 

1986 

0.304 

Feb  1 

0.225 

May  9 

OLOD,,,, 

1986 

0.230 

Feb  2 

0.226 

May  12 

SLOD,,^^ 

1980-1981 

0.367 

Feb  6-8 

0.273 

May7-9 

0LOD^y,^ 

1980-1981 

0.363 

Feb  4 

0.282 

May  13 

6 LOD,  J,'' 

1981-1983 

0.45 

Feb  16 

0.24 

May  1 

^LOD^^^ 

1981-1983 

0.50 

Feb  12 

0.17 

May  1 

Note  1 .  Amplitude  is  in  ms. 

Note  2.  Phase  is  the  peak  value  of  that  term  in  days  starting  with  Jan  1. 

For  the  semiannual  phase,  the  date  is  the  day  of  the  first  peak. 

in  the  year. 
Note  3.  From  Rosen  and  Salstein  (1985).  Time  data  is  from  BIH.  NMC 

weather  data  extends  to  1  mb. 
Note  4    From  Morgan  ei  al.  (1985).  Time  data  is  a  composite  of 

LLR,  VLBI,  and  BIH  estimates.  NMC  data  extends  to  100  mb. 
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Fig. 


1.  Unfiltered  time  series  of  JZ,OZ>lsno  (top)and  6L0D,,„  (bottom):  Note  the 
linear,  decreasing  trend  in  the  dLOD^sNo  plot.  The  mean  has  not  been  re- 
moved from  the  USNO  data. 


Fig.  2.      Detrended  5L0D^,„  and  (JZ.OZ>usno  series:     Top  line  is  USNO  data.  Bottom 
line  (atmospheric  data)  has  been  offset  by  -0.2  ms  for  clarity 
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Smoothed  dLOD,t„  and  JLOD^sno  series:  A  23-point  moving  average  fil- 
ter was  used  to  eliminate  noise  and  high  frequency  tidal  oscillations.  Heavy 
line  is  the  SLOD^sy^o  series. 


Fig. 


4.  Seasonal  terms  of  6L0D^t„  and  J£OZ>usfjo*  Heavy  line  is  USNO  series. 
A  75-poini  weighted  moving  average  filter  was  applied  twice  to  each  series; 
148  points  were  lost  from  the  ends. 
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Fig.  5.  Annual  terms  of  SLOD^^yo  and  5L0D^^„:  Hea\7  line  is  (5LOZ)LSNoBottom 
graph  is  residual  oi'  dLOD^^^Q  -  SLOD,,„  shifted  downward  by  0.2  ms.  The 
slight  oscillation  of  this  line  is  at  a  period  of  2  years  and  is  probably  related 
to  the  Quasi-Biennual-Oscillation.  Frequency  transfer  function  is  Fig.  19 
on  page  48  of  Appendix  C. 
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Fig.  6.      Semiannual  terms  of  dLOD^^yo  and  3L0D,i„: 

Bottom  graph  is  residual  of  oLOD^sno  -  <5L0Z)„ 


Heavy  line  is  dLOD^sr<o 
shifted  down  by  0.5  ms. 


Frequency  response  of  filter  is  Fig.  20  on  page  48  of  Appendix  C. 
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Fig.  7.  Subseasoiial  Oscillations  of  5L0D^^„  and  dLOD^^^o'  Residual  of  series 
depicted  in  Fig.  4  on  page  23  subtracted  from  Fig.  3  on  page  23.  Bottom 
line  is  the  diflerence  of  the  two  series  shifted  down  0.5  ms. 


fig.  8.  Comparisou  of  <5I0Z)usNo-»ub«.«  ^^^  ^LOD^„i,:  Hea'/y  line  is  SLODusj<o 
seasonal  signal;  light  line  is  dLOD,^„is  derived  from  integrating  atmospheric 
angular  momentum  within  15  °  of  the  equator. 
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Fig.  9. 


Comparison  of  t)IOZ)i;sNo-^»«)nai  and  ^LOD,^„^i:  Same  as  Fig.  8,  except 
midlatitude  components  poleward  of  15°  zV  and  15°  5  are  compared  with 
seasonal  terms  of  SLOD^^sso- 
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Comparison  of  SLOD^ 


SNO-<abscts 


and  dLOD 


MmiO' 


Heavy  line  is  USNO  sub- 
seasonal  signal  {from  Fig.  7);  light  line  is  derived  from  integrating  atmo- 
spheric angular  momentum  within  20°  of  the  equator. 
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11.  Comparison  of  <5Z,(^i>csNo-«3sonai  and  dLOD,,„,^:  Heav>-  line  is  LSNO  sea- 
sonal signal  (from  Fig.  6);  light  line  is  atmospheric  signal  derived  from 
midlatitude  components  of  atmospheric  LOD  above  20°  N  and  below 
20°  5. 
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Fig.  12. 


Energy  Density,  Colierence,  and  Phase  Spectra  of  dLOD,^„  and 
JIODlsno:  Seven  point  spectral  smoothing  useii  for  ail  plots.  Solid  line 
in  the  power  spectral  density  spectral  plot  is  (5LOZ)l'sno  ^^'^  dashed  line  is 
dLOD,,^.  Dashed  lines  in  phase  plot  are  5  day  advances  (top  dashed  line) 
and  lags  (bottom  dashed  line)  of  dLOD^^^o  with  respect  to  5L0D^,^. 
Horizontal  line  in  coherence  plot  represents  95%  confidence  that  tiie  two 
series  are  correlated. 
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Fig.  13.  Energy  Density,  Coherence,  and  Phase  Spectra  of  JIOD^sno  ^"^ 
JZ,0£>„„,j:  As  in  Fig.  12  except  the  atmospiieric  signal  is  dLOD^^^  com- 
puted witiiin  15°  of  the  equacor. 
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Fig.  14.  Energy  Density,  Coherence,  and  Phase  Spectra  of  (5LOZ>lsno  ^^d 
5L0D,^„„:  As  in  Fig.  12  except  the  atmospheric  signal  is  computed 
above  15°  N  and  below  IS''  S. 
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Fig.  15.  Energy  Density,  Coherence,  and  Phase  Spectra  of  JLOD^sno  ^"^ 
6LOD^t„io-  As  in  Fig.  12  except  the  atmospheric  signal  is  computed 
within  20°  of  the  equator. 
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Fig.  16.  Energy  Density,  Coherence,  and  Phase  Spectra  of  JIODusno  and 
JZ,6>Z)j,„7o:  As  in  Fig.  12  except  tiie  atmospheric  signal  is  computed 
above  20°  N  and  below  20°  S. 
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APPENDIX  A.     FORTRAN  CODE  FOR  DECODING  NEDN  TAPES  AND 

COMPUTING  LOD 

//BENEDICT  JOB  (4507 ,0818) ,' JAN  87',CLASS=G 

//^'•-MAIN  0RG=NPGVM1.  4507P,  LINES=20 

//   EXEC   FORTVCLG,PARM.  FORT='OPT(2),LVL(66)' .REGION. GO=2048K 

//FORT. SYSIN  DD  * 

c 

C  ORIGINAL  AUTHOR  JAMES  BOYLE,  NAVAL  POSTGRADUATE  SCHOOL  1986 

C 

C  ADDITIONS  MADE  IN  1987  BY  W.  L.  BENEDICT 

C  THIS  IS  THE  MAIN  PROGRAM  TO  READ  THE  NEDN  TAPES  AND  GET  ZONALLY 

C  AVERAGED  WINDS  OUT.   BE  SURE  TO  CHECK  THE  INPUT  PARAMETERS  AT  THE 

C  END  OF  THE  PROGRAM  FOR  THE  DATES.   THE  OUTPUT  FILE  WILL  GO  TO  YOUR 

C  READER. 

C  PGM  TO  READ  DATA  FROM  FNOC  NOGAPS  TAPE  GLOBAL  GRID  NEDN  FORMAT 

C 

C  >>>»»»»»>»»>  LONG  RECORD  FORMAT  <<«<<«<«<«<<«<«<< 

C 

REAL*4  DATA(10512),D(73,144),C(144,73) 

REAL*4  Z0NAVG(11,84),C0SSQ(73),AVERGE,FACTRV(8),VERT(73), 
&       LODATM(400),  OMEGA,  ISHELL,AVG,G,PI ,L0DSID,R 

INTEGER  IBUF(5284) 

INTEGER  IDATA( 10512) 

INTEGER^f2  JDATA(  21024) 

INTEGER  IN1(24),KFTC(100) 

INTEGER  BCD(24),FTC(100) 

INTEGER  IDFELD(3,12),KOUNT(6,12,6) 

INTEGER  DELTAU,COUNT,QQ,Q 

INTEGER  CALNDR(740) 

REAL  FCTR(12),DBASE(12) 

INTEGER  ITAU0K(4) 
C 

EQUIVALENCE  ( IDATA( 1) , JDATA( 1) ) 

EQUIVALENCE  (DATA(l) ,D( 1, 1) ) 
C 

NAMELIST/ INPUT/  NSKPRC , IXl , 1X2 , IDFl , IDF2 
C 

DATA  FCTR/   12*0.01/ 

DATA  DBASE/ 12*0.0/ 

DATA  ITAUOK/00, 12,24,36/ 

DATA  NUMTAU/01/ 

DATA  DELTAU/12/ 

DATA  FACTRV  /2*7500, 10000,3*5000,2*2500/ 

DATA  OMEGA  /7. 29E-5/ 

DATA  I SHELL  /7. 04E37/ 

DATA  PI  /3. 1415926/ 

DATA  G  /9.81/ 

DATA  LODSID  /86000. 0/ 
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DATA  R  /6370000. 0/ 
C 

READ( 05, INPUT) 

WRITE( 06, INPUT) 
C 

READ(05,1275)   ( (IDFELD(I , J) , 1=1 , 3) , J=IDF1 , IDF2) 

1275  F0RMAT(11(3A1,1X)) 

WRITE(06,1276)  ( ( IDFELD( I , J) , 1=1 , 3) , J=IDF1 , IDF2) 

1276  FORMATC IX, 'FIELDS  SELECTED  ' , 11( 3A1 , IX) ) 
C 

COUNT=0 

QQ=0 

NA=21135 

NB=0 

NCNT=0 

NFLE=0 
C 
C   SET  UP  ARRAY  FOR  CALENDAR 

CALL  KLNDR(CALNDR) 
C   SET  UP  COSINE  ARRAY  FOR  INTEGRATION 

DO  2300  1=1,  37 

COSSQ(I)  =  (SIN(2.5'>(I-l)'K2*PI/360.  0))**2) 
C0SSQ(74-I)  =  COSSQ(I) 
2300  CONTINUE 
C 

DO  10  1=1,6 

DO  10  J=l,8  ^ 

DO  10  K=l,6 
10  KOUNT(I,J,K)=0 
C 

IDDHH1=IX1  -  ((IX1/10000)*10000) 

IDD1=IDDHH1/100 

IHHl=IDDinil   -    IDD1*100 
C 

CALL  BUFFERC 10,1, 21135, IBUF) 
C  SKIP  TO  DESIRED  DATA   E.G.  DEC  74  NSKPRC  =  806 

CALL  SKPREC( 10, NSKPRC, &99,&999) 
C 

C  IDFELD  IS  THE  NEDN  FIELD  IDENTIFIER  E.  G.  AOl  =  SLP 
C  F00=500  Z,    T21  =  250MB  V, 
C 

C  IXl  &  1X2  ARE  THE  DTG  OF  FIRST  AND  LAST  PERIODS  (FORM  YYMMDDHH  IN  18) 
C 

C  iciciriHck*ic-k*-ki(ick*iiit    JO?  OF  DATA  INPUT  LOOP  ************** 

55  CONTINUE 
C 
C  LONG  RECORD  FORMAT  JUST  USE  ONE  READ 

CALL  GETREC(10,&99,6c9999) 

NCNT=NCNT  +   1 
C 

CALL  GBYTESC IBUF( 1 ) , IN1( 1 ) , 00 , 06 , 00 , 24) 

CALL  XBCD(24,IN1(1),BCD(1)) 

CALL  GBYTESC IBUF( 6) , IFTC ,28,4,0,0) 

NFTC=IFTC'''4 

CALL  GBYTES(IBUF(16),KFTC(1),24,6,0,NFTC) 

CALL  XBCD(NFTC,KFTC(1),FTC(1)) 
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CALL  XINT(BCD,5,4,ITAU) 
C 
C   iViV'jVVfVfjViVVrVfVfjVVf   FORECAST  HOUR   (    TAU   )    CHECK  'ViViVVriViVVfyfiViViVVcjVVoViViVVfiVVfiViViVVc 

DO  610  K=1,NUMTAU 

NNTAU=K 

IF(ITAU.  EQ. ITAUOK(K))  GOTO  620 
610  CONTINUE 

GOTO  55 
620  CONTINUE 
C 
C  .v,v,v,v  CHECK  YYMMDDHH  TO  GET  THE  DATA  WE  NEED  ****■>'' 

CALL  XINT(BCD,9,8,IYMDH) 

IF  (lYMDH. LT. IXl)  GO  TO  55 

IF  (lYMDH. GT. 1X2)  GO  TO  77 

IDDHHX=IYMDH  -  (  (  lYMDH/ 10000)'n0000) 

IDDX=IDDHHX/100 

IHHX=IDDHHX   -    IDDX^nOO 

NNDAY=(IDDX-IDD1)    +   ( IABS(IHHX-IHH1)/12)   +   1 
C 

C     iVVnViV^VnV  DATA  TYPE  CHECK  *i'<:***-^*->'o''*******->'^**->'f** 
C 

DO  640  K=IDF1,IDF2 

NNFLD=K 

DO  644  KK=1,3 

644  IF(BCD(KK)  . NE.  IDFELD(KK,K))  GOTO  640 
GOTO  645 

640  CONTINUE 
GOTO  55 

645  CONTINUE 
C 

C  ***   DECODE  SCALING  INFORMATION,  GRID  SIZE 
CALL  GBYTES(IBUF(6) ,IUNIT,8,5,0,0) 
CALL  GBYTESC IBUF( 6 ) , ISCLE ,13,6,0,0) 
CALL  GBYTES(1BUF(6),KEYBIT,26,2,0,0) 
CALL  GBYTES(IBUF(7),M,24,12,0,0) 
CALL  GBYTES(IBUF(8),N,4,12,0,0) 

C  ***   DECODE  DATA  ITSELF  AFTER  FINDING  WHERE  IT  STARTS. 

NBITS  =  (21  +  IFTC)*24 

IWDSRT  =  (NBITS/32)  +  1 

ISKIP  =  NBITS  -  ((NBITS/32)*32) 

NBTSDP=16 

CALL  GBYTESC IBUF(IWDSRT),IDATA, ISKIP, NBTSDP,0,NR) 
C     CALL  GBYTESC IBUFC 27 ),IDATA, 8, NBTSDP,0,NR) 
C 
C  CDC  HAS  ONE'S  COMPLEMENT,  IBM  HAS  TWO'S  COMPLEMENT  FOR  NEGATIVE'S. 

DO  30  I  =  1,NR 
30   IF  CIDATACI)  .LT.  0)  IDATACI)  =  IDATACI)  +  1 
C 

C  SET  UP  TO  UNPACK  16  BIT  DATA  POINTS.  THUS  JDATA  WHICH  IS  *2  HAS  ONE 
C  DATA  POINT  PER  WORD.  DATA  IS  IN  THE  RIGHTMOST  16  BITS  OF  IDATA  WHICH 
C  IS  ^^4. 
C 

L=0 

NR2=NR*2 

IF  C  ISCLE  .LT.  32)  GO  TO  40 


35 


ISL=  2**(ISCLE-32) 
DO  17  I  =  2,NR2,2 
L=L+1 
IDUM=JDATA(I) 

17  DATA(L)  =  FLOAT(IDUM)/FLOAT(ISL) 
GO  TO  45 

40  ISL=2''"K32-ISCLE) 
DO  18  I=2,NR2,2 
L=L+1 
IDUM=JDATA(I) 

18  DATA( L)=FLOAT( IDUM)*FLOAT( ISL) 
45   CONTINUE 

C 

C  DBASE  =  5574.0  FCTR  =  0.01  FOR  500MB  FOO 

C  DBASE  =   762.0  FCTR  =  0.01  FOR  925MB  ROO 

C  DBASE  =  0000.0  FCTR  =  1.00  FOR  SLP  AOl 

C  DBASE  =  0000.0  FCTR  =+0.01  FOR  V  AND  0.01  FOR  U. 

DO  88  KZ=1,NR 
88  DATA(KZ)=  DATA(KZ)*FCTR(NNFLD)  +  DBASE(NNFLD) 
C 

C  ORIENT  I, J  INDICES  SUCH  THAT  I=E-W    J=N-S 
C  REVERSE  SENSE  OF  J  SO  THAT  IT  INCREASES  NWD. 

DO  25  1=1,73 

11=73  -  (I-l) 

DO  25  J=l,144 
25  C(J,II)=D(I,J) 
C 

IHR=IYMDH-(IYMDH/100)*100 

IDAY=( ( IYMDH~( lYMDH/ 10000)^10000) -IHR)/100 
C  VcVcVfVfV.-ivVf)V*VnV*VrTV20NAL  AVERAGING  1,00?''''***^'^***''^************************ 
C 

2999  DO   2115   J  =   1,    73 

AVG  =  0.  0 

DO  2116   1=1,    144 
AVG  =  C(I,J)   +  AVG 
2116  CONTINUE 

ZONAVG(NNFLD,J)   =  AVG/ 144. 
2115   CONTINUE 

IF   (NNFLD   .EQ.     11)   GOTO   3000 
GOTO  55 

3000  QQ  =  QQ  +1 

IF  (lYMDH  .NE.  CALNDR(QQ))  GOTO  3500 
GOTO  3600 

3500  WRITE(6,3501)  QQ,  CALNDR(QQ) ,LODATM(QQ) 

3501  F0RMAT(1X,I3,1X,I8,1X,F9.6,2X,'DATA  MISSING  FROM  FNOC  TAPES') 
GOTO  3000 

C  y!'yf*Vt-,vyr*y,-VfVfyfyc**yf**VrVf***vER'pjcALLY  intE GRATE ***"'''****'''*''^*************''' 
3600  DO  2130  1=1,  73 

VERT(I)  =  (Z0NAVG(1,I)+Z0NAVG(2,I))*FACTRV(1) 
&  +  (Z0NAVG(2,I)+Z0NAVG(3,I))'^FACTRV(2) 

&  +  (Z0NAVG(3,I)+Z0NAVG(4,I))*FACTRV(3) 

&  +  (Z0NAVG(4,I)+Z0NAVG(5,I))*FACTRV(4) 

6c  +  (Z0NAVG(5,I)+Z0NAVG(6,I))'^FACTRV(5) 

&  +  (ZONAVG(6,I)+ZONAVG(7,I))*FACTRV(6) 

6c  +  (ZONAVG(7,I)+ZONAVG(8,I))*FACTRV(7) 
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fie  +  (ZONAVG(8,I)+ZnNAVG(9,I))'^FACTRV(8) 

&  +  (ZONAVG(7,I)+ZONAVG(8,I))^'^FACTRV(9) 

2130  CONTINUE 
C 

C     APPLY  COS  LAT  TERMS 
DO  2140  1=1,  73 
2140  VERT(I)  =  VERT(I)^COSSQ(I) 
C 

C     HORIZONTALLY  INTEGRATE 
AVERGE=0.  0 
DO  2145  1=2,72 

AVERGE  =  VERT(I)  +  AVERGE 
2145  CONTINUE 

AVERGE  =  AVERGE*  PI/72. 0 
C 
C  CONSTANTS  OUTSIDE  THE  INTEGRAL  ARE  NOW  BROUGHT  IN: 

AVERGE  =  AVERGE*(2*PI*(R'VVf3))/G 
C   CALCULATE  THE  CHANGE  IN  LOD 

LODATM(QQ)  =  1000. '^C  AVERGE*LODSID/(OMEGA'USHELL) ) 
C 

WRITE(6,3001)  QQ,  lYMDH,  LODATM(QQ) 
3001  F0RMAT(1X,I3,1X,I8,1X,F9. 6) 
GOTO  55 


99  CONTINUE 


C 

c 

77  WRITE(6,151)  lYMDH 

C   i"oV*VriVVciVVcVcVfVfVc*')VVf*iV*iVVc*  OUTPUT  LOOP  ******'/fyf****Vri«r*-)V***-A*Vr*i"r** 

C 

WRITE  (6,1020) 
C     WRITE  (6,1010)  (L0DATM(Q),Q=1,QQ) 
1010  FORMAT(7F10.  6) 

1020  FORMAT( IX, 'THESE  ARE  THE  FINAL  LOD  VALUES  IN  SECONDS') 
151  F0RMAT(1X,'PGM  ENDED  OK  lYMDH  =  ',110) 
C 

C     DO  835  I=1,NNDAY 
C     WRITE(06,1235)  1,1X1 
1235  F0RMAT(1X,//,1X,'NDAY  =  ',I3,2X,'lXl  =  ',18) 
835  CONTINUE 
C 

CALL  FILEND(IDF1,IDF2) 
STOP 
C 
Q  yfiVivVf/fVcy-yf'ft'Vfyr'/fVfA'  PARITY  ERROR  TRAP  '''"'"'f***************'!'?***** 

9999  WRITE(06,120) 
120  FORMATdX,'  PARITY  ERROR  GETREC  ') 
STOP 

C  in'eic:!c:!'ici:-k-/fitiri(i(*-f(ie    SKPREC  FAILURE  Vf********Vf**Vf*yf*****')frVfyfjV 

999  WRITE(06,122) 

122  FORMATdX,'  SKPREC  FAILURE  ') 

STOP 
998  CONTINUE 

WRITE(06,1298)  NFLE 
1298  FORMATdX,'  PGM  ENDED.   NUMBER  OF  FILES  PROCESSED  =  ',14) 
C     CALL  FILEND(IDF1,IDF2) 
STOP 


37 


END 
C  &&&&&&&&&&&&&&&&&  SUBROUTINE  XINT  &6c5c5t&&&66&&&&5c6c&&6c&5c 
C 

SUBROUTINE  XINT( BCD , ISRT , NUM , lOUT) 
C  THIS  ROUTINE  TAKES  NUM  EBDIC  CHARACTERS  FROM  BCD 
C  STARTING  AT  ISRT  AND  CONVERTS  IT  INTO  A  INTEGER  NUMBER  PUT  INTO  lOUT. 

INTEGER  BCD(24),DIGITS(11) 

INTEGER  INTGRS(11),INTS(8) 

DATA  D1GITS/'0','1\'2','3','4','5','6','7','8','9','  '/ 

DATA  INTGRS/0 , 1,2,3,4,5,6,7,8,9,0/ 

DATA  I BLANK/'  '/ 
C 

IEND=ISRT  +  NUM  -  1 

DO  100  I=ISRT,IEND 

II  =  I  -  ISRT  +  1 

DO  200  J=l,ll 

IF(BCD(I).NE.DIGITS(J))GO  TO  200 

INTS(II)=INTGRS(J) 

GO  TO  100 
200  CONTINUE 
C     WRITE(6, 1000)11, ISRT, NUM, IEND,(BCD(K),K=ISRT, TEND) 
ClOOO  F0RMAT(2H   ,' ERROR, CHECK  YOUR  SUBROUTINE  XINT' ,4( 2X, 14) ,2X,24A1) 
C     STOP 

INTS(II)  =  0 
100  CONTINUE 

IOUT=00  ^ 

IFCTR=1 

DO  300  1=1, NUM 

II  =  NUM  -  I  +  1 

lOUT  =  lOUT  +  INTS(II)*IFCTR 

IFCTR  =  IFCTR*10 
300  CONTINUE 

RETURN 

END 
C  &&&&6c&6c&6c£c6c&&&&&&  SUBROUTINE  XBCD  &&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
C 

SUBROUTINE  XBCD(N, INPUT, BCDOUT) 
C 

C     SUBROUTINE  XBCD  CONVERTS  N  INPUT  CHARACTERS  FROM  CDC  EXTERNAL  BCD 
C     TO  IBM  EBCDIC.   THE  INPUT  CHARACTERS  ARE  STORED  IN  ARRAY  INPUT 
C     AND  THE  OUTPUT  (CONVERTED)  CHARACTERS  ARE  STORED  IN  ARRAY  BCDOUT. 
C 

INTEGER  HEX(47)/Z31,Z32,Z33,Z34,Z35,Z36,Z37,Z38,Z39,Z21,Z22,Z23, 
^^  Z24,Z25,Z26,Z27,Z28,Z29,Z12,Z13,Z14,Z15,Z16,Z17,Z18,Z19,Z0A,Z01, 

*  Z02,Z03,Z04,Z05,Z06,Z07,Z08,Z09,Z30,Z20,Z10,Z11,Z3B,Z2B,Z2C,Z1B, 

*  Z1C,Z0B,Z0C/,INPUT(N) 

REAL  CHAR(47)/'A' , ' B' , 'C' , 'D' , 'E' , 'F' , 'G' , 'H' , ' l' , ' J' , 'K' , 'L' , 
^'  'M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','0','l', 

J-  to'   'o'   •/'   'e'   '/i'   •-?'   'o'   'n'   'c'   '   •   •   •   '/'   •   '   '<^*   '*'   'n' 
^       2,J,4,i),b,7,0,9,6c,-,     ,/,•   »?,'*.), 

*  '%'  ,'#'  ,'(a'/,BCDOUT(N) 
DO  100  1=1, N 

DO  200  J=l,47 

IF(INPUT(I).EQ.  HEX(J))  GO  TO  150 
200  CONTINUE 

J=39 
150  BCDOUT(I)=CHAR(J) 
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100  CONTINUE 
RETURN 
END 
Q     yciViV->v*v."V'iVyf***Tif**-iViV')V*iV')V  SUBROUTINE  KLNDR  **'V-!V*Vri"f)V')VVr*Vf>v*Vf*'!V****ivyf*ynVVntyf 

SUBROUTINE  KLNDR(CALNDR) 
INTEGER  CALNDR(740),0 
C   JAN  (31  DAYS) 

CALNDR(l)  =  87010100 
DO  5001   1=2,62,2 

CALNDR(I)=CALNDRri-l)  +  12 

CALNDR(I+1)=CALNDR(I-1)  +  100 

5001  CONTINUE 

C  FEB  (28  DAYS) 

CALNDR(63)  =  87020100 
DO  5002  1=64,118,2 

CALNDR(I)=CALNDR(I-1)  +  12 

CALNDR(I+1)=CALNDR(I-1)  +  100 

5002  CONTINUE 

C  MAR  (31  DAYS) 

CALNDR(119)  =  87030100 
DO  5003  1=120,180,2 

CALNDR(I)=CALNDR(I-1)  +  12 

CALNDR(I+1)=CALNDR(I-1)  +  100 

5003  CONTINUE 

C  APR  (30  DAYS) 

CALNDR(181)  =  87040100 
DO  5004  1=182,240,2 

CALNDR(I)=CALNDR(I-1)  +  12 

CALNDR(I+1)=CALNDR(I-1)  +  100 

5004  CONTINUE 

C  MAY  (31  DAYS) 

CALNDR(241)  =  87050100 
DO  5005  1=242,302,2 

CALNDR(I)=CALNDR(I-1)  +  12 

CALNDR(I+1)=CALNDR(I-1)  +  100 

5005  CONTINUE 

C   JUN  (30  DAYS) 

CALNDR(303)  =  87060100 
DO  5006  1=304,362,2 

CALNDR(I)=CALNDR(I-1)  +  12 

CALNDR(I+1)=CALNDR(I-1)  +  100 

5006  CONTINUE 

C  JUL  (31  DAYS) 

CALNDR(363)  =  87070100 
DO  5007  1=364,424,2 

CALNDR(I)=CALNDR(I-1)  +  12 

CALNDR(I+1)=CALNDR(I-1)  +  100 

5007  CONTINUE 

C  AUG  (31  DAYS) 

CALNDR(425)  =  87080100 
DO  5008  1=426,486,2 

CALNDR(I)=CALNDR(I-1)  +  12 

CALNDR(I+1)=CALNDR(I-1)  +  100 

5008  CONTINUE 
C  SEP  (30  DAYS) 

CALNDR(487)  =  87090100 
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DO   5009    1=488,546,2 

CALNDR(I)=CALNDR(I-1)    +    12 
CALNDR(I+1)=CALNDR(I-1)    +    100 

5009  CONTINUE 

C   OCT  (31  DAYS) 

CALNDR(547)  =  87100100 
DO  5010  1=548,608,2 

CALNDR(I)=CALNDR(I-1)  +  12 
CALNDR(I+1)=CALNDR(I-1)  +  100 

5010  CONTINUE 

C  NOV  (30  DAYS) 

CALNDR(609)  =  87110100 
DO  5011  1=610,668,2 

CALNDR(I)=CALNDR(I-1)  +  12 

CALNDR(I+1)=CALNDR(I-1)  +  100 

5011  CONTINUE 

C  DEC  (31  DAYS) 

CALNDR(669)  =  87120100 
DO  5012  1=670,730,2 

CALNDR(I)=CALNDR(I-1)  +  12 

CALNDR(I+1)=CALNDR(I-1)  +  100 

5012  CONTINUE 
RETURN 
END 

C*^v*-.v**VrV«vVf*iV*VfiV*iV********  SUBROUTINE  FILEND  ****iV*****iV********Vf*** 

SUBROUTINE  FILEND( IDSRT, IDEND) 
C     KK1=(  IDSRT  +  D^no 
C     KK2=(  IDEND  +  l)^n0 
C     DO  778  KK=KK1,KK2,10 
C     DO  778  K=2,02 
C     IFILE  =  KK  +  (K  -  1) 
C  778  ENDFILE  IFILE 
C     ENDFILE  21 
C     ENDFILE  22 
C     ENDFILE  24 
C     ENDFILE  26 

RETURN 

END 

/* 

//LKED.  SYSLIB  DD 

//     DD 

//     DD 

//     DD 

//     DD 

//     DD  UNIT=3350,VOL=SER=MVS003,DISP=SHR,DSN=C1012.TAPEUT, 

//        LABEL=(,,,IN) 

//*  NOTE  ONLY  ODD  NUMBERED  TAPES  HAVE  THE  OOZ  DATA  AND  120HR  FCSTS. 

//GO. FTlOFOOl  DD  UNIT=3400-5 , VOL=SER=W16733 , 

//  DISP=( OLD, PASS) ,LABEL=( 1 ,NL, , IN) , 

//  DCB=(RECFM=FB,BLKSIZE=21135,DEN=4) 

//GO. SYSIN  DD  * 

ScINPUT  NSKPRC=00,  1X1=87070100,  1X2=87123112,  IDF1=01,  IDF2=9&END 
C20  D20  E20  F20  G20  H20  120  J20  K20 

/'■' 
//,v 
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APPENDIX  B.     FORTRAN  CODE  FOR  SPECTRAL  ANALYSIS 

c 

C  ENERGY  DENSITY,  CROSS  SPECTRUM,  PHASE,  AND  COHERENCE 

C  INPUT  FILES  ARE  UNITS  33,  34,  and  35 

C  OUTPUT  FILES  ARE  UNITS  41  TliROUGH  45 
C 

C 

PROGRAM  CRSPEC 

PARAMETER(N=2048,M=11) 
C 
C   DECLARE  ARRAYS. 

REAL''-4  DATAX(N),  GX(N),  GXSUM(N/2  +  1)  ,ATM1(  1622)  ,ATM2(  1622) 

REAL'''4  DATAY(N),  GY(N),  GYSUM(N/2  +  1)  ,LOD(  1622)  ,LIMPHl(N/2+l) 

REAL^'4  DAY,XSUM(N/2+l),YSUM(N/2+l) 

REAL^'4  CXY(N),  QXY(N),  PHASE(N),  COHER(N),  FREQ(N)  ,LIMPH2(N/2+l) 

INTEGER-f4  IWK(N+1)  ,FILENO 

COMPLEX  AX(N),  Aif(N),  GXY(N),  GXYSUM(N/2  +  1),  XYSUM(N/2+l) 
C 

CHARACTER''60  TITLE1,TITLE2,TITLE3  ,TITLE4, TITLES  ,TITLE6, TITLE? 
C   DEFINE  CONSTANTS. 

C   M  AND  N  ARE  DEFINED  IN  PARAMETER  SECTION;  N  IS  NUMBER  OF  SAMPLES 
C       M  IS  THE  POWER  OF  TWO  TO  GET  N 

XN  =  FLOAT(N) 

NF  =  N/2  +  1 
C        (NF  IS  INDEX  VALUE  FOR  NYQUIST  FREQ. ) 

DT  =  1 
C         (DT  IS  TIME  BETWEEN  SAMPLED  VALUES) 

T  =  FLOAT(N) 
C         (T  IS  TOTAL  TIME  FOR  SAMPLE;  HERE  IT  IS  EQUAL  TO  THE  SAMPLE) 

DF  =  1.  /T 
C         (DF  IS  DELTA  F,  FUNDAMENTAL  FREQ. ) 

NS  =  1 
C         (NS  IS  NO.  OF  SAMPLES  TO  ENSEMBLE  AVERAGE) 

PI  =  3. 141593 

WCORR  =  . 875 
C         (WINDOW  CORRECTION) 
C 

C   INITIALIZE  SUMMING  ARRAYS.   RETAIN  INFORMATION  UP  TO  THE 
C   NYQUIST  FREQ.  ONLY. 

DO  100  I  =  1,  NF 

GXSUM(I)  =  0. 

GYSUM(I)  =  0. 

GXYSUM(I)  =  (0.  ,0.  ) 
100  CONTINUE 
C 

QM(ici(i(-::i'!iH(i(i(iHfk-ifi(iff(ickiffe-ft    MAIN  LOOP  OF  PROGRAM  ***V<"ft'**VfVf****Vr*********Vf** 

C  COMPUTE  ENERGY  DENSITY  SPECTRA  AND  ENERGY  DENSITY  CROSS  SPECTRUM 

C  FOR  EACH  SAMPLE  AND  ENSEMBLE  AVERAGE. 

C 

FILEN0=45 
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DO  500  K  =  1,  NS 
C 

C   READ  DATA. 
C   THIS  IS  FOR  15N/S  DATA 

DO  144  1=  1,  1622 
C     READ  (34,209)  ATMl(I) 

C   BELOW  IS  ONLY  FOR  20N  TO  20S  DATA. 
C     READ  (33,209)  ATMl(I) 
C     ATM1(I)  =  16. /72.'>ATM1(I) 

READ  (35,200)  LOD( I) , ArMl( I) 
C     ATM1(I)=ATM2(I)-ATM1(I) 

144  CONTINUE 
C 

200  FORMAT  (2(1X,F9.6)) 

202  FORMAT  (24X,F8.5) 

209  F0RMAT(10X,F9.6) 

C   TAPER  BOTH  ENDS  OF  THE  DATA 
C 

CALL  TAPER(1622,L0D) 
CALL  TAPER(1622,ATM1) 
C   ADD  ZEROS 

DO  152  1=1, N 

IF  ((I  .LE.  213)  .OR.  (I  .GT.  1835))  THEN 
DATAX(I)=0. 
DATAY(I)=0. 
ELSE 

DATAX(I)=L0D(I-213) 
DATAY(I)=ATM1( 1-213) 
END  IF 
152  CONTINUE 
C 
C     WRITE  (37,101)  (DATAY(I),I=1,N) 

101  F0RMAT(8F8.4) 
C   TRANSFER  THE  DATA  TO  COMPLEX  ARRAYS  AX  AND  AY  FOR  FFT2C  INPUT. 
C   NOTE  THAT  IN  USING  THE  2ND  FORMULA  IN  FFT2C  DOCUMENTATION,  YOU 
C   MUST  INITIALLY  TAKE  THE  COMPLEX  CONJUGATE  OF  THE  DATA.   SINCE 
C   THE  IMAGINARY  PART  IS  ZERO,  THIS  STEP  IS  NOT  NECESSARY. 
DO  300  I  =  1,  N 
AX(I)  =  CMPLX  (DATAX(I),  0.) 
AY(I)  =  CMPLX  (DATAY(I),  0.) 
300  CONTINUE 
C 
C   DO  FFT. 

CALL  FFT2C  (AX,  M,  IWK) 
CALL  FFT2C  (AY,  M,  IWK) 
C 

C   MAKE  ADJUSTMENT  TO  GET  2ND  FORMULA. 
DO  325  I  =  1,  N 
AX(I)  =  CONJG  (AX(I))  /  XN 
AY(I)  =  CONJG  (AY(I))  /  XN 
325  CONTINUE 
C 

C   COMPUTE  THE  ENERGY  DENSITY  SPECTRA  GX(F)  AND  GY(F)  AND  THE 
C   CROSS  SPECTRUM  GXY(F)  FROM  FFT2C  OUTPUT  AX  AND  AY. 
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DO  350  I  =  1,  N 

GX(I)  =  CABS(AX(I)''^*2)'n2./DF) 
GY(I)  =  CABS(AY(I)''"'^2)^>(2. /DF) 
GXY(I)  =  AY(I)*C0NJG(AX(I))*(2. /DF) 
350  CONTINUE 
C 

C    SINCE  YOU  MUST  ENSEMBLE  AVERAGE  THE  RESULTS  OVER  THE  NO.  OF  SAMPLES, 
C   ADD  GX(F),  GY(F),  GXY(F)  INTO  SUMMING  ARRAYS.   NOTE  THAT  EACH 
C   FREQUENCY  IS  SUMMED  INDEPENDENTLY. 
DO  400  I  =  1,  NF 
GXSUM(I)  =  GXSUM(I)  +  GXCI) 
GYSUM(I)  =  GYSUM(I)  +  GY(I) 
GXYSUM(I)  =  GXYSUM(I)  +  GXY(I) 
400  CONTINUE 
C 

500  CONTINUE 

CiVVfVfVc*iV-)ViViV')VVrVoV-)V')ViV*****  ^.ND    OF  MAIN  LOOP  **yc***Vf*'A">"nViViViV*********Vf)ViV*VfjV*** 

C 

C   AFTER  SUMMING  IN  ALL  OF  THE  ESTIMATES,  DIVIDE  BY  THE  NO.  OF 

C   SAMPLES  NS  AND  BY  THE  WINDOW  CORRECTION  FACTOR  WCORR. 

C   COMPUTE  THE  CO-SPECTRUM  CXY,  THE  QUAD-SPECTRUM  QXY,  THE 

C   PHASE  SPECTRUM,  AND  THE  COHERENCE  SPECTRUM.   CONVERT  THE 

C   PHASE  SPECTRUM  TO  DEGREES  FOR  PLOTTING. 

XNS  =  FLOAT(NS) 

C  MULTIPLY  BY  F**2 

DO  600  1=2,  NF 

GXSUM(I)  =  (GXSUM(I)  /  (XNS  *  WCORR) )*( (FLOAT( I-1)*DF)**2) 
GYSUM(I)  =  (GYSUM(I)  /  (XNS  *   WCORR)  )^'(  (FLOAT(  I-1)^>-DF)^'^'2) 
GXYSUM(I)  =  (GXYSUM(I)  /  (XNS  *  WCORR)  )'K  (FLOAT(  I-1)'^DF)''^'^2) 
600  CONTINUE 

C  APPLY  A  5  POINT  SMOOTHING  CURVE) 

DO  610  I=3,NF-2 

XSUM(I)=(GXSUM(I-l)+GXSUM(I)+GXSUM(I+l)+GXSUM(I-2)+GXSUM(I+2))/5. 
YSUM(I)=(GYSUM(I-l)+GYSUM(I)+GYSUM(I+l)+GYSUM(I-2)+GYSUM(I+2))/5. 
XYSUM( I ) =( GXYSUM( I - 1 ) +GXYSUM( I ) +GXYSUM( I+l ) +GXYSUM( I - 2 ) 
&         +GXYSUM(H-2))/5. 
610  CONTINUE 

XSUM(2)=(GXSUM(2)+GXSUM(3))/2. 
YSUM(2)=(GYSUM(2)+GYSUM(3))/2. 
XYSUM(2)=(GXYSUM(2)+GXYSUM(3))/2. 

XSUM(3)=(GXSUM(2)+GXSUM(3)+GXSUM(4))/3. 
YSUM(3)=(GYSUM(2)+GYSUM(3)+GYSUM(4))/3. 
XYSUM(3)=(GXYSUM(2)+GXYSUM(3)+GXYSUM(4))/3. 

C  RETURN  VALUES  TO  ARRAYS 

DO  676  1=1, NF 

GXSUM(I)=XSUM(I) 

GYSUM(I)=YSUM(I) 

GXYSUM(I)=XYSUM(I) 
676  CONTINUE 
C 
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C   CREATE  FREQUENCY  ARRAY  AS  MULTIPLES  OF  THE  FUNDAMENTAL  FREQ.  DF. 
C   NOTE  THAT  THE  FIRST  BIN  IS  THE  MEAN  AND  THE  FREQ.  IS  ZERO. 
DO  700  I  =  1,  NF 
FREQ(I)  =  FLOAT(I-l)  *  DF 
700  CONTINUE 

DO  615  1=2, NF 
CXY(I)  =  REAL(GXYSUM(I)) 
QXY(I)  =  AIMAG(GXYSUM(I)) 
IF  (CXY(I)  .EQ.  0.  )  THEN 
PHASE(I)  =  0. 
GOTO  679 
ENDIF 

PHASE(I)  =  ATAN2(QXY(I),CXY(I))*(180. /PI) 
IF  (PHASE(I)  .GE.  90.)  PHASE(I)=90. 
IF  (PHASE(I)  .LE.  -90.  )  PHASE(  I)  =  -90. 
679  IF  ((GXSUM(I)''^GYSUM(I))  .  EQ.  0.)  THEN 
COHER(I)=0. 
GOTO  615 
ENDIF 

COHER(I)  =  ((CXY(I)**2)+(QXY(I)*^V2))/(GXSUM(I)*GYSUM(I)) 
615  CONTINUE 
C  DIVIDE  BY  F''"''2 

DO  611  1=2, NF 

GXSUM(I)=GXSUM(I)/((FL0AT(I-1)*DF)**2) 
GYSUM(  I  )=GYSUM(  I )  /  ( ( FLOAT(  I  - 1  )*DF)''f*2 ) 
GXYSUM(I)=GXYSUM(I)/((FL0AT(I-1)''^DF)''"^2) 
611  CONTINUE 
C 

C   SET  LIMITS  FOR  PHASE  PLOT 
DAY=5.0 
DO  833  1=2, NF 

LIMPHK  I)=FREQ(  I)*DAY*360 
IF  (LIMPHl(I).GE.  90.)  LIMPH1(I)=90. 
LIMPH2(I)=  -LIMPHl(I) 
833  CONTINUE 
C   PRINT  OUT  FREQ.,  GXSUM(F),  GYSUM(F),  CXY(F),  QXY(F),  PHASE(F), 
C   COHER(F). 
1005  F0RMAT(14X,'X' ,9X,'Y' ,9X,'C0-' ,6X,'QUAD') 
1010  F0RMAT( IX, 'FREQUENCY' ,2X, ' SPECTRUM' , 3X, ' SPECTRUM' ,2X, ' SPECTRUM' 

&2X , ' SPECTRUM ' , 4X , ' PHASE ' , 2X , ' COHERENCE ' ) 
1015  F0RMAT(1X,72('-')) 
C     WRITE(36,1005) 
C     WRITE(36,1010) 
C     WRITE(36,1015) 
DO  800  I  =  2,  4 

WRITE(FILENO,810)FREQ(I),GXSUM(I),GYSUM(I),PHASE(I), 
&        C0HER(I),LIMPH1(I),LIMPH2(I) 
800  CONTINUE 

DO  802  I  =  5,  NF-5,  5 
DO  844  K=1,5 
WRITE(FILEN0,810)FREQ(K+I) ,GXSUM( 1+3) ,GYSUM( 1+3) ,PHASE( 1+3) , 
&        C0HER(I+3),LIMPH1(K+I),LIMPH2(K+I) 
844  CONTINUE 
802  CONTINUE 
810  F0RMAT(7F10.  5) 
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C   COMPUTE  HIE  VARIANCE  BY  INTEGRATING  GXSUM(F)  AND  GYSUM(F) 
C   NUMERICALLY  BY  SUMMING  GXSUM(F)"DF  AND  GYSUM(  F)'''DF  OVER  THE 
C   APPROPRIATE  RANGE  OF  FREQUENCIES.   WRITE  OUT  THE  VARIANCES. 
SUM  =  0. 
SUMM  =  0. 
DO  900  I  =  1,  NF 

PRODX  =  GXSUM(I)*DF 
PRODY  =  GYSUM(I)''-DF 
SUM  =  SUM  +  PRODX 
SUMM  =  SUMM  +  PRODY 
900  CONTINUE 

WRITE(FILEN0,910)  SUM 
WRITE(FILENO,920)  SUMM 
910  F0RMAT(//,4X, 'VARIANCE  OF  LOD  SERIES  =  ' ,F9. 3) 
920  F0RMAT(//,4X, 'VARIANCE  OF  ATM  SERIES  =  ' ,F9. 3) 


C   COMPUTE  THE  CO- VARIANCE  BY  INTEGRATING  THE  CO-SPECTRUM  CXY(F). 
C   WRITE  OUT  THE  CO-VARIANCE. 
S  =  0. 

DO  2000  I  =  1,  NF 
PRODXY  =  CXY(I)*DF 
S  =  S+  PRODXY 
2000  CONTINUE 

WRITE(FILENO,2010)  S 
2010  F0RMAT(//,4X,'C0VARIANCE  =  ' ,F9. 3) 
STOP 
END 


202 

201 
203 

204 


SUBROUTINE  TAPER(NTS,X) 

MULTIPLYING  INPUT  DATA  BY  TAPER  FUNCTION 

DIMENSION  X(NTS) 

PI  =  3.  1415927 

XNTS  =  NTS 

MA  =  0.  I'^XNTS 

MB  =  XNTS -MA 

DO  204  I  =  1,NTS 

IF(I.LE.MA)  GO  TO  201 

IF(I.GE.MB)  GO  TO  202 

GO  TO  204 

XI=NTS-I 

GO  TO  203 

XI=I-1 

ARG  =  5.  0*PI*XI/XNTS 

X(I)  =  X(I)'^(1. -COS(ARG)*COS(ARG)) 

CONTINUE 

RETURN 

END 


C 
C 


SUBROUTINE  MINMAX  (A,N,AMIN,AMAX) 

DIMENSION  A(l) 

AMIN  =  A(l) 
AMAX  =  A(l) 


DO  100  I  =  1,  N 
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IF  (A(I) 
IF  (A(I) 
100  CONTINUE 
C 

RETURN 
END 

. LT.  AMIN)  AMIN 
. GT.  AMAX)  AMAX 

=  A(I) 
=  A(I) 
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APPENDIX  C.     FREQUENCY  RESPONSE  OF  DIGITAL  FILTERS 
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Fig.  17.  Spectral  response  of  23-point  sin^  weighted  filter:  Lowpass  filter  designed 
primarily  to  remove  solid  body  tides  at  7  and  13.5  days  from  (5LODusno 
data. 
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Fig.  18.  Spectral  response  of  a  twice  run  75-point  sin^  filter:  Lowpass  design  per- 
mitted removal  of  most  subseasonal  components.  Note  the  abscence  of 
side  lobes,  as  well  as  the  relative  steepness  achieved  by  rurming  the  filter 
twice. 
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Ig.  19 


Response  of  183-point  unweighted  moving  average  filter:  Used  to  isolate 
annual  terms.  A  weighted  filter  would  have  required  too  many-points,  and 
would  not  have  sufficient  vertical  steepness  to  include  annual  frequencies. 
Still,  almost  35%  of  the  annual  signal  is  attenuated  in  order  to  filter  out 
the  semiannual  terms. 


Fig.  20.  Filter  to  isolate  semiannual  terms:  Combination  of  twice  run  75-point 
sin^  weighted  filter  and  183-point  unweighted  subtraction  moving  average. 
Maximum  response  is  at  about  200  days. 
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Fig.  21.  Subseasonal  isolation  filter:  Combination  of  twice  run  75-point  weighted 
moving  average  (see  Fig.  19)  and  23-point  weighted  moving  average.  Peak 
response  is  at  60  days. 
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